unit U_fm_professor;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013White,
  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, Vcl.ImgList, Vcl.ComCtrls, cxLabel,
  Vcl.ToolWin, Vcl.ExtCtrls, dxSkinscxPCPainter, cxPCdxBarPopupMenu, cxPC,
  Vcl.StdCtrls, cxTextEdit, cxDBEdit, cxMaskEdit, cxDropDownEdit;

type
  Tfm_professor = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    cxLabel1: TcxLabel;
    ToolButton4: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Panel5: TPanel;
    ToolBar2: TToolBar;
    ToolButton9: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ImageList1: TImageList;
    btn1: TToolButton;
    cxImageList1: TcxImageList;
    pnl1: TPanel;
    lbl2: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    lbl15: TLabel;
    lbl16: TLabel;
    lbl1: TLabel;
    lbl17: TLabel;
    lbl3: TLabel;
    lbl18: TLabel;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBComboBox1: TcxDBComboBox;
    cxDBComboBox2: TcxDBComboBox;
    cxDBComboBox4: TcxDBComboBox;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxDBTextEdit12: TcxDBTextEdit;
    cxDBTextEdit14: TcxDBTextEdit;
    cxDBTextEdit15: TcxDBTextEdit;
    cxDBTextEdit10: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBComboBox5: TcxDBComboBox;
    cxDBTextEdit9: TcxDBTextEdit;
    cxDBComboBox3: TcxDBComboBox;
    PagCtrl01_DadosBasicos: TcxPageControl;
    PagSheet01_DadosBasicos: TcxTabSheet;
    cxTabSheet1: TcxTabSheet;
    lbl19: TLabel;
    cxDBTextEdit11: TcxDBTextEdit;
    procedure ToolButton3Click(Sender: TObject);
    procedure PagCtrl01_DadosBasicosDrawTab(AControl: TcxCustomTabControl;
      ATab: TcxTab; var DefaultDraw: Boolean);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_professor: Tfm_professor;

implementation

{$R *.dfm}

uses UMyLib;

procedure Tfm_professor.btn1Click(Sender: TObject);
begin
Close;
end;

procedure Tfm_professor.PagCtrl01_DadosBasicosDrawTab(
  AControl: TcxCustomTabControl; ATab: TcxTab; var DefaultDraw: Boolean);
begin
 TMyLib.MyPagCtrlDrawTab(Acontrol,Atab,DefaultDraw);
end;

procedure Tfm_professor.ToolButton3Click(Sender: TObject);
begin
close;
end;

end.
